Sub RemoveBlankCols()

Dim objSheet As Worksheet
Dim RowsCount As Long
Set objSheet = Worksheets("Plan1") 'Nome da sua planilha
RowsCount = objSheet.Rows.Count
For Each objCol In objSheet.Columns
    RowsCountAux = objSheet.Cells(1, objCol.Column).End(xlDown).Row
    If RowsCountAux = RowsCount Then
    objCol.EntireColumn.Delete
    End If
Next
End Sub
